home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 47 / 047.d81 / harneds art hote (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  127 lines
  1. 1 ifx>.then10
  2. 2 poke53280,.:poke53281,.
  3. 3 print"[147]"
  4. 4 print"    [215]elcome to [200]arned's [193]rt [200]otel..."
  5. 5 :
  6. 8 poke55,120:poke56,55:clr
  7. 10 ifx=0thenx=1:load"unpacker",8,1
  8. 20 ifx=1thenx=2:load"bload.o",8,1
  9. 25 ifx=2thenx=3:load"copymem.o",8,1
  10. 30 :
  11. 40 bl=828:unpack=51456:hgr=51459
  12. 45 cm=14200
  13. 50 :
  14. 55 np=12:dim t$(np),a$(np),r$(np),c(np)
  15. 56 forx=1tonp:readt$(x),a$(x),r$(x),c(x)
  16. 58 ifa$(x)="*"thena$(x)=a$(x-1)
  17. 59 next
  18. 60 gosub 50060: rem title screen
  19. 70 forx=1tonp:gosub60000
  20. 80 print"[154]"
  21. 82 printspc(19-len(t$(x))/2)""t$(x)"[146]"
  22. 84 print""spc(19-len(a$(x))/2)""a$(x)"[146]"
  23. 90 sysbl,16384,r$(x)
  24. 92 :
  25. 94 ifpeek(198)<>0thengeta$:poke198,0:ifa$="q"ora$="[209]"thengosub10000
  26. 95 ifright$(r$(x),3)="pic"then1000
  27. 96 poke249,224:poke250,204
  28. 98 poke251,0:poke252,64
  29. 99 poke253,0:poke254,0:print"[147]";:sysunpack:syshgr:poke53280,c(x)
  30. 100 ag=3.34
  31. 110 poke198,.:wait198,1
  32. 112 geta$:ifa$=" "ora$=" "thenpoke53280,(peek(53280)and15)+1
  33. 115 ifa$<>chr$(13)then110
  34. 120 syshgr:print"[147]":poke198,0:next x
  35. 130 goto70
  36. 140 :
  37. 1000 ag=3.34:poke249,224:poke250,204
  38. 1010 poke251,.:poke252,64
  39. 1020 poke253,.:poke254,.:print"[147]"
  40. 1030 sys cm,24576-8192,57344,8000
  41. 1040 sys cm,32576-8192,52224,1000
  42. 1050 sys cm,33576-8192,55296,1000
  43. 1055 poke53281,peek(34576-8192)
  44. 1060 sys hgr:poke53280,c(x):goto100
  45. 10000 rem a key was pressed
  46. 10005 poke53281,1:poke53280,5
  47. 10010 print"[147][144]  [193]re you sure you want to quit [[217]/[206]]?"
  48. 10020 poke198,0:wait198,1:getag$
  49. 10030 ifag$="y"orag$="[217]"then30000
  50. 10040 return
  51. 30000 rem quit
  52. 30010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  53. 30020 ifer<>63thenprint"[147]":end
  54. 30030 load"hello connect",8
  55. 50000 rem data <title>,<author>,<real>
  56. 50010 data "[212]he [203]eep","[215]alt [200]arned",keep.shp,10
  57. 50012 data "[208]lanter",*,planter.shp,13
  58. 50014 data "[195]reek",*,creek.shp,7
  59. 50016 data "[211]pace [207]re",*,spaceore.shp,2
  60. 50020 data "[193]ircav",*,aircav.shp,10
  61. 50022 data "[200]ound",*,hound.shp,7
  62. 50026 data "[211]ea",*,sea.shp,3
  63. 50030 data "[196]ock",*,dock.pic,6
  64. 50034 data "[208]andas",*,pandas.shp,13
  65. 50040 data "[195]lassic",*,classic.shp,6
  66. 50050 data "[193]rtist",*,artist.shp,10
  67. 50055 data "[211]now",*,snow.shp,14
  68. 50060 rem title screen
  69. 50065 print"[147]":poke53281,1:poke53280,1
  70. 50072 print"         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  71. 50082 print"         [221][204]oadstar [208]resents[221][152] "
  72. 50092 print"         [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  73. 50102 print"                             "
  74. 50112 print
  75. 50122 print"  [159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  76. 50132 print"  [221]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][159]        [221][152] "
  77. 50142 print"  [159][221]      [221][200]arned's [193]rt [200]otel[221][154] [159]       [221][152] "
  78. 50152 print"  [159][221]      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][154] [159]       [221][152] "
  79. 50162 print"  [159][221]        [154]                   [159]       [221][152] "
  80. 50172 print"  [159][221]                                  [221][152][160]"
  81. 50182 print"  [159][221]   [211]lide [211]how [208]resenter written   [221][152][160]"
  82. 50192 print"  [159][221]         by [193]lan [199]ardner          [221][152][160]"
  83. 50202 print"  [159][221]            ([195]) 1987              [221][152][160]"
  84. 50204 print"  [159][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152][160]"
  85. 50212 print"                                       "
  86. 50222 print
  87. 50232 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  88. 50242 print"     [221]  [193]ll pictures created by   [221][152] "
  89. 50252 print"     [221]        [215]alt [200]arned         [221][152] "
  90. 50272 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  91. 50282 print"                                    "
  92. 50292 :
  93. 50302 print"   [ Press any key to start the show[160]]";
  94. 50312 print"";
  95. 50314 poke198,0:wait198,1:poke198,0
  96. 50316 poke53281,5:return
  97. 59990 :
  98. 60000 :
  99. 60001 poke53281,1:poke53280,5
  100. 60005 print"[147][146]    [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  101. 60010 print"    [221][204]oadstar is proud to present:[221][152] "
  102. 60020 print"    [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  103. 60030 print"                                    "
  104. 60040 print
  105. 60050 print"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  106. 60060 print"  [221]                                 [221][152] "
  107. 60070 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] "
  108. 60080 print"  [150][221]  [154][221]                          [221] [150]  [221][152] "
  109. 60090 print"  [150][221]  [154][221]        created by        [221] [150]  [221][152] [146][160]"
  110. 60100 print"  [150][221]  [154][221]                          [221] [150]  [221][152] [146] [160]";
  111. 60110 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] "
  112. 60120 print"  [150][221]                               [150]  [221][152] "
  113. 60130 print"  [150][221]                                 [221][152] "
  114. 60140 print"  [150][221]                                 [221][152] "
  115. 60150 print"  [150][221]  [154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][150]   [221][152] [146][160]"
  116. 60160 print"  [150][221]  [154][221] [195]oming soon to a computer[221] [150]  [221][152] [146][160]"
  117. 60170 print"  [150][221]  [154][221]        near you.         [221] [150]  [221][152] [146][160]"
  118. 60180 print"  [150][221]  [154][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [150]  [221][152] [146][160]"
  119. 60190 print"  [150][221]                               [150]  [221][152] [146][160]"
  120. 60200 print"  [150][221]                                 [221][152] "
  121. 60210 print"  [150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] "
  122. 60220 print"                                      "
  123. 60230 print
  124. 60240 print"         [ Press 'Q' to exit ]";
  125. 60250 print"";
  126. 60260 return
  127.